home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / e / mui22edev2.lha / Amiga_E / Sources / doMethod.e next >
Text File  |  1994-10-10  |  508b  |  19 lines
  1.  
  2. PROC doMethod( obj:PTR TO object, msg:PTR TO msg )
  3.  
  4.     DEF h:PTR TO hook, o:PTR TO object, dispatcher
  5.  
  6.     IF obj
  7.         o := obj-SIZEOF object    /* instance data is to negative offset */
  8.         h := o.class
  9.         dispatcher := h.entry    /* get dispatcher from hook in iclass */
  10.         MOVEA.L h,A0
  11.         MOVEA.L msg,A1
  12.         MOVEA.L obj,A2        /* probably should use CallHookPkt, but the */
  13.         MOVEA.L dispatcher,A3    /*   original code (DoMethodA()) doesn't. */
  14.         JSR (A3)        /* call classDispatcher() */
  15.         MOVE.L D0,o
  16.         RETURN o
  17.     ENDIF
  18. ENDPROC NIL
  19.